set proc to sospro
set exclu off
dr1='H:'
dr4='I:'
DO EODCOSAL
RETURN